\subsection{FormulaEnergia}
\begin{lstlisting}
Object subclass: #FormulaEnergia
	instanceVariableNames: 'valorBase nivel delta'
	classVariableNames: ''
	poolDictionaries: ''
	category: 'PLP-TP-POO'
\end{lstlisting}

\subsubsection{Mensajes de Clase}
\textbf{para:} \textit{unValorBase} \textbf{y:} \textit{unNivel} \textbf{usando:} \textit{unDelta}
\begin{lstlisting}
	^self new inicializarPara: unValorBase y: unNivel usando: unDelta
\end{lstlisting}


\subsubsection{Mensajes de Instancia}
\textbf{inicializarPara:} \textit{unValorBase} \textbf{y:} \textit{unNivel} \textbf{usando:} \textit{unDelta}
\begin{lstlisting}
	valorBase := unValorBase.
	nivel := unNivel.
	delta := unDelta 
\end{lstlisting}

\bigskip

\textbf{value}
\begin{lstlisting}
	^(valorBase * 2 + 94) * (nivel / 100) + delta 
\end{lstlisting}
